home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / KEYBOARD.TEST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  741b  |  17 lines
  1. 10  HOME 
  2. 20  VTAB 4
  3. 30  PRINT  TAB( 5);"DO YOU HAVE:"
  4. 40  PRINT : PRINT  TAB( 5);"1. Apple //GS Keyboard"
  5. 45  PRINT : PRINT  TAB( 5);"2. Apple //E Pt"
  6. 50  PRINT : PRINT  TAB( 5);"3. Apple //E upgraded to"
  7. 60  PRINT  TAB( 8);"a //GS w/o the new keyboard"
  8. 65  PRINT : PRINT  TAB( 8);"OR a //C or a //E Enhanced"
  9. 67  PRINT : PRINT  TAB( 5);"4. QUIT"
  10. 70  VTAB 18: PRINT  TAB( 10);"ENTER CHOICE: 1"
  11. 80  VTAB 18: HTAB 24: GET A$: PRINT A$
  12. 90  IF A$ = "1"  THEN  PRINT  CHR$(4);"RUN KB.NEW.GS"
  13. 95  IF A$ = "2"  THEN  PRINT  CHR$(4);"RUN KB.II.PT"
  14. 100  IF A$ = "3"  THEN  PRINT  CHR$(4);"RUN KB.UPGRADE.GS"
  15. 110  IF A$ =  CHR$(13)  THEN  PRINT  CHR$(4);"RUN KB.NEW.GS"
  16. 115  IF A$ = "4"  THEN  PRINT  CHR$(4);"RUN HELLO2"
  17. 120  PRINT  CHR$(7): GOTO 80